﻿Public Class fmrLogin

    ' codigo de cesar
    Dim listausuario As New LinkedList(Of Login)
    ' codigo de cesar
    Public Property ListaloginTotales As LinkedList(Of Login)
        Get
            Return listausuario
        End Get
        Set(ByVal value As LinkedList(Of Login))
            listausuario = value

        End Set
    End Property
    Private Sub btnIngresar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIngresar.Click

        For Each myLogin As Login In listausuario
            If myLogin.usuariologin.Equals(txtUsuario.Text) And myLogin.paswordlogin.Equals(txtPassword.Text) Then

                ' YA ENTRAMOS AHORA A VALIDAR LA FECHA
                If myLogin.caducidadlogin < Date.Now Then
                    MsgBox("USUARIO : " + myLogin.usuariologin + " CADUCADO.")
                    Exit Sub
                End If


                MsgBox("BIENVENIDO/A : " + myLogin.usuariologin)
                Dim FrmContenedor As New frmContenedor
                FrmContenedor.ProcesoPadre = Process.GetCurrentProcess.ProcessName
                FrmContenedor.ListaloginTotales = listausuario
                FrmContenedor.Show()
                Me.Hide()

                ' SALIMOS DE LA LLAMADA
                Exit Sub

            End If

        Next
        MsgBox("USUARIO INCORRECTO")

        



    End Sub





    Private Sub fmrLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'codigo de cesitar, 8 deabrildel2013
        Dim miusuario As New Login
        miusuario.caducidadlogin = New Date(2013, 5, 8)
        miusuario.IDsusariologin = "US001"
        miusuario.paswordlogin = "cesar"
        miusuario.usuariologin = "cesar"


        Dim miusuario2 As New Login
        miusuario2.caducidadlogin = New Date(2013, 5, 8)
        miusuario2.IDsusariologin = "US002"
        miusuario2.paswordlogin = "pamela"
        miusuario2.usuariologin = "pamela"

        Dim miusuario3 As New Login
        miusuario3.caducidadlogin = New Date(2013, 5, 8)
        miusuario3.IDsusariologin = "US003"
        miusuario3.paswordlogin = "junior"
        miusuario3.usuariologin = "junior"
        Dim miusuario4 As New Login
        miusuario4.caducidadlogin = New Date(2013, 5, 8)
        miusuario4.IDsusariologin = "US004"
        miusuario4.paswordlogin = "maria"
        miusuario4.usuariologin = "maria"
        Dim miusuario5 As New Login
        miusuario5.caducidadlogin = New Date(2013, 5, 8)
        miusuario5.IDsusariologin = "US005"
        miusuario5.paswordlogin = "jhan"
        miusuario5.usuariologin = "jhan"
        Dim miusuario6 As New Login
        miusuario6.caducidadlogin = New Date(2013, 5, 8)
        miusuario6.IDsusariologin = "US006"
        miusuario6.paswordlogin = "milagros"
        miusuario6.usuariologin = "milagros"
        Dim miusuario7 As New Login
        miusuario7.caducidadlogin = New Date(2013, 3, 8)
        miusuario7.IDsusariologin = "US007"
        miusuario7.paswordlogin = "yury"
        miusuario7.usuariologin = "yury"
        'Crea nuevo
        'miusuario = New Login
        'miusuario.paswordlogin = "123456"
        listausuario.AddFirst(miusuario)
        listausuario.AddFirst(miusuario2)
        listausuario.AddFirst(miusuario3)
        listausuario.AddFirst(miusuario4)
        listausuario.AddFirst(miusuario5)
        listausuario.AddFirst(miusuario6)
        listausuario.AddFirst(miusuario7)
    End Sub
End Class
